home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / copycomb / wrapper.ctl < prev    next >
Text File  |  1998-10-24  |  4KB  |  118 lines
  1. VERSION 5.00
  2. Begin VB.UserControl Wrapper 
  3.    BackColor       =   &H00C0C0C0&
  4.    ClientHeight    =   3270
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   5040
  8.    ScaleHeight     =   3270
  9.    ScaleWidth      =   5040
  10.    Begin VB.Frame Frame1 
  11.       Caption         =   "Frame1"
  12.       Height          =   2895
  13.       Left            =   120
  14.       TabIndex        =   0
  15.       Top             =   120
  16.       Width           =   4815
  17.       Begin VB.PictureBox Picture1 
  18.          AutoRedraw      =   -1  'True
  19.          AutoSize        =   -1  'True
  20.          Height          =   975
  21.          Left            =   240
  22.          Picture         =   "wrapper.ctx":0000
  23.          ScaleHeight     =   915
  24.          ScaleWidth      =   915
  25.          TabIndex        =   4
  26.          Top             =   720
  27.          Width           =   975
  28.       End
  29.       Begin VB.CommandButton Command1 
  30.          Caption         =   "OK"
  31.          Height          =   375
  32.          Left            =   3120
  33.          TabIndex        =   2
  34.          Top             =   2280
  35.          Width           =   1455
  36.       End
  37.       Begin VB.TextBox Text1 
  38.          Height          =   975
  39.          Left            =   1440
  40.          MultiLine       =   -1  'True
  41.          TabIndex        =   1
  42.          Text            =   "wrapper.ctx":0822
  43.          Top             =   720
  44.          Width           =   3135
  45.       End
  46.       Begin VB.Label Label3 
  47.          Caption         =   "TextBox"
  48.          Height          =   255
  49.          Left            =   1440
  50.          TabIndex        =   6
  51.          Top             =   480
  52.          Width           =   975
  53.       End
  54.       Begin VB.Label Label2 
  55.          Caption         =   "PictureBox"
  56.          Height          =   255
  57.          Left            =   240
  58.          TabIndex        =   5
  59.          Top             =   480
  60.          Width           =   975
  61.       End
  62.       Begin VB.Shape Shape1 
  63.          FillColor       =   &H00FFFF80&
  64.          FillStyle       =   0  'Solid
  65.          Height          =   495
  66.          Left            =   1920
  67.          Shape           =   4  'Rounded Rectangle
  68.          Top             =   1920
  69.          Width           =   615
  70.       End
  71.       Begin VB.Shape Shape2 
  72.          FillColor       =   &H00FF00FF&
  73.          FillStyle       =   0  'Solid
  74.          Height          =   375
  75.          Left            =   240
  76.          Shape           =   2  'Oval
  77.          Top             =   2280
  78.          Width           =   735
  79.       End
  80.       Begin VB.Shape Shape3 
  81.          FillColor       =   &H0080FFFF&
  82.          FillStyle       =   0  'Solid
  83.          Height          =   375
  84.          Left            =   1320
  85.          Shape           =   3  'Circle
  86.          Top             =   2280
  87.          Width           =   375
  88.       End
  89.       Begin VB.Label Label1 
  90.          Caption         =   "Shapes"
  91.          Height          =   255
  92.          Left            =   720
  93.          TabIndex        =   3
  94.          Top             =   1920
  95.          Width           =   735
  96.       End
  97.    End
  98. End
  99. Attribute VB_Name = "Wrapper"
  100. Attribute VB_GlobalNameSpace = False
  101. Attribute VB_Creatable = True
  102. Attribute VB_PredeclaredId = False
  103. Attribute VB_Exposed = True
  104. Private Sub Command1_Click()
  105.  
  106.    Text1.Text = "Eckler CopyCom Wrapper Demo" + Chr(&HD) + Chr(&HA) _
  107.       + "Copyright (c) 1998 Eckler Software" + Chr(&HD) + Chr(&HA) _
  108.       + Chr(&HD) + Chr(&HA) _
  109.       + "Author: David Suffield" + Chr(&HD) + Chr(&HA)
  110.       
  111.    'Be sure to use persistent graphics for graphic methods.
  112.    Picture1.AutoRedraw = True
  113.    Picture1.Print "hello"
  114.    Picture1.Line (0, 0)-(Picture1.Width, Picture1.Height)
  115.  
  116. End Sub
  117.  
  118.